10 REM *** LINE SENTRY *** BUCK CHILDRESS ***
20 REM *** P.O. BOX 13575 SALEM, OR 97309 ***
30 PRINTCHR$(147)"LOADING AND CHECKING DATA LINE:":J=52000
40 FORB=0TO11:READA
50 IFB=0THENL=PEEK(64)*256+PEEK(63):PRINTCHR$(19)TAB(31)L:PRINT
60 IFA<0ORA>255THEN80
70 POKEJ+B,A:X=X+A:D=D+1:NEXTB:READA:IFA=XTHEN90
80 PRINT"ERROR IN DATA LINE:"L:END
90 X=0:J=J+12:IFD<288THEN40
100 PRINT"THE DATA IS OK...":PRINT
110 PRINT"SYS 52000 TOGGLES ON AND OFF...":END
120 DATA104,104,169,60,162,203,236,1,3,208,4,169,1423
130 DATA139,162,227,141,0,3,142,1,3,224,227,240,1509
140 DATA40,76,79,203,134,251,173,1,2,240,5,166,1370
150 DATA251,76,139,227,173,0,2,201,79,208,14,169,1539
160 DATA14,160,204,32,30,171,169,117,162,203,76,108,1446
170 DATA203,201,81,208,226,169,17,160,204,32,30,171,1702
180 DATA169,131,162,164,141,2,3,142,3,3,76,116,1112
190 DATA164,32,96,165,134,122,132,123,32,115,0,170,1285
200 DATA240,243,162,255,134,58,144,3,76,150,164,32,1661
210 DATA107,169,32,121,165,132,11,32,19,166,176,3,1133
220 DATA76,237,164,166,214,164,211,134,251,132,252,162,2163
230 DATA39,189,0,4,157,57,204,189,0,216,157,97,1309
240 DATA204,169,32,157,0,4,202,16,236,169,21,160,1370
250 DATA204,32,30,171,165,21,166,20,32,205,189,169,1404
260 DATA29,160,204,32,30,171,169,0,133,198,32,228,1386
270 DATA255,201,78,240,4,201,89,208,245,32,210,255,2018
280 DATA72,160,0,232,208,253,200,208,250,162,39,189,1973
290 DATA57,204,157,0,4,189,97,204,157,0,216,202,1487
300 DATA16,241,166,251,164,252,24,32,240,255,104,201,1946
310 DATA89,240,3,76,123,164,56,76,169,164,79,78,1317
320 DATA0,79,70,70,0,19,18,76,73,78,69,32,584
330 DATA0,32,69,88,73,83,84,83,32,42,32,67,685
340 DATA79,78,84,73,78,85,69,63,32,40,89,47,817
350 DATA78,41,146,32,0,0,65,46,72,46,83,46,655